10 F=40832: T=40866
20 PRINT CHR$(147)+"POKING FROM" F "TO" T
30 FOR I=F TO T: READ X$: PRINT CHR$(19)CHR$(17)CHR$(18);I
40 L=48: IF ASC(LEFT$(X$,1))>57 THEN L=55
50 R=48: IF ASC(RIGHT$(X$,1))>57 THEN R=55
60 X=(ASC(LEFT$(X$,1))-L)*16+ASC(RIGHT$(X$,1))-R:POKE I,X: S=S+X: NEXT
70 IF S=3593 THEN PRINT"OKEY-DOKEY": END
80 PRINT "SOMETHING'S WRONG!": END
40832 DATA A9,35,8D,8E,09,8D,98,0E
40840 DATA 8D,17,16,8D,DF,14,8D,E6
40848 DATA 14,8D,B4,1D,8D,BB,1D,8D
40856 DATA 02,1E,8D,09,1E,A9,9F,8D
40864 DATA B1,09,60